object FormEditPersonal: TFormEditPersonal
  Left = 652
  Top = 209
  Width = 572
  Height = 275
  Caption = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1085#1080#1077' '#1089#1086#1090#1088#1091#1076#1085#1080#1082#1072
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 8
    Top = 8
    Width = 152
    Height = 19
    Caption = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1085#1080#1077
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'DejaVu Sans'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label1: TLabel
    Left = 8
    Top = 40
    Width = 49
    Height = 13
    Caption = #1060#1072#1084#1080#1083#1080#1103
  end
  object Label3: TLabel
    Left = 32
    Top = 64
    Width = 22
    Height = 13
    Caption = #1048#1084#1103
  end
  object Label4: TLabel
    Left = 8
    Top = 88
    Width = 47
    Height = 13
    Caption = #1054#1090#1095#1077#1089#1090#1074#1086
  end
  object Label5: TLabel
    Left = 8
    Top = 112
    Width = 49
    Height = 13
    Caption = #1060#1072#1084#1080#1083#1080#1103
  end
  object Label6: TLabel
    Left = 40
    Top = 136
    Width = 19
    Height = 13
    Caption = #1058#1080#1087
  end
  object Label7: TLabel
    Left = 320
    Top = 48
    Width = 165
    Height = 13
    Caption = #1042#1086#1076#1080#1090#1077#1083#1100#1089#1082#1086#1077' '#1091#1076#1086#1089#1090#1086#1074#1077#1088#1077#1085#1080#1077' '#8470
  end
  object Label8: TLabel
    Left = 320
    Top = 96
    Width = 90
    Height = 13
    Caption = #1057#1088#1086#1082' '#1076#1077#1081#1089#1090#1074#1080#1103' '#1076#1086
    FocusControl = DBEditDriverLicDate
  end
  object DBEditF: TDBEdit
    Left = 64
    Top = 40
    Width = 177
    Height = 21
    DataField = 'F'
    DataSource = DataSource1
    TabOrder = 0
    OnChange = DBEditFChange
  end
  object DBEditI: TDBEdit
    Left = 64
    Top = 64
    Width = 177
    Height = 21
    DataField = 'I'
    DataSource = DataSource1
    TabOrder = 1
    OnChange = DBEditIChange
  end
  object DBEditO: TDBEdit
    Left = 64
    Top = 88
    Width = 177
    Height = 21
    DataField = 'O'
    DataSource = DataSource1
    TabOrder = 2
    OnChange = DBEditOChange
  end
  object Button1: TButton
    Left = 40
    Top = 176
    Width = 97
    Height = 33
    Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
    TabOrder = 3
    OnClick = Button1Click
  end
  object DBEditFIO: TDBEdit
    Left = 64
    Top = 112
    Width = 177
    Height = 21
    DataField = 'FIO'
    DataSource = DataSource1
    TabOrder = 4
  end
  object DBLookupComboBox1: TDBLookupComboBox
    Left = 64
    Top = 136
    Width = 177
    Height = 21
    DataField = 'ID_TYPE_PERSONAL'
    DataSource = DataSource1
    DropDownRows = 3
    KeyField = 'ID'
    ListField = 'NAME_TYPE'
    ListSource = DSLook
    TabOrder = 5
  end
  object Button2: TButton
    Left = 144
    Top = 176
    Width = 89
    Height = 33
    Caption = #1054#1090#1084#1077#1085#1072
    TabOrder = 6
    OnClick = Button2Click
  end
  object CheckBoxA: TCheckBox
    Left = 256
    Top = 40
    Width = 57
    Height = 17
    Caption = #1040
    TabOrder = 7
    OnClick = CheckBoxAClick
  end
  object CheckBoxB: TCheckBox
    Left = 256
    Top = 56
    Width = 57
    Height = 17
    Caption = 'B'
    TabOrder = 8
    OnClick = CheckBoxBClick
  end
  object CheckBoxC: TCheckBox
    Left = 256
    Top = 72
    Width = 57
    Height = 17
    Caption = 'C'
    TabOrder = 9
    OnClick = CheckBoxCClick
  end
  object CheckBoxD: TCheckBox
    Left = 256
    Top = 88
    Width = 57
    Height = 17
    Caption = 'D'
    TabOrder = 10
    OnClick = CheckBoxDClick
  end
  object CheckBoxE: TCheckBox
    Left = 256
    Top = 104
    Width = 57
    Height = 17
    Caption = 'E'
    TabOrder = 11
    OnClick = CheckBoxEClick
  end
  object CheckBoxBE: TCheckBox
    Left = 256
    Top = 120
    Width = 57
    Height = 17
    Caption = 'BE'
    TabOrder = 12
    OnClick = CheckBoxBEClick
  end
  object CheckBoxCE: TCheckBox
    Left = 256
    Top = 136
    Width = 57
    Height = 17
    Caption = 'CE'
    TabOrder = 13
    OnClick = CheckBoxCEClick
  end
  object CheckBoxDE: TCheckBox
    Left = 256
    Top = 152
    Width = 57
    Height = 17
    Caption = 'DE'
    TabOrder = 14
    OnClick = CheckBoxDEClick
  end
  object DBEditDriverLic: TDBEdit
    Left = 320
    Top = 64
    Width = 169
    Height = 21
    DataField = 'DRIVER_LIC'
    DataSource = DataSource1
    TabOrder = 15
  end
  object DBEditDriverLicDate: TDBEdit
    Left = 320
    Top = 112
    Width = 134
    Height = 21
    DataField = 'DRIVER_LIC_DATE'
    DataSource = DataSource1
    TabOrder = 16
  end
  object pFIBDataSetPedit: TpFIBDataSet
    SelectSQL.Strings = (
      'select * from personal where id=:Pid')
    AutoUpdateOptions.UpdateTableName = 'PERSONAL'
    AutoUpdateOptions.KeyFields = 'ID'
    AutoUpdateOptions.AutoReWriteSqls = True
    AutoUpdateOptions.CanChangeSQLs = True
    OnCalcFields = pFIBDataSetPeditCalcFields
    Transaction = DataModule_tms.pFIBTransaction_tms
    Database = DataModule_tms.pFIBDatabase_tms
    AutoCommit = True
    Left = 216
    Top = 8
    object pFIBDataSetPeditID: TFIBBCDField
      FieldName = 'ID'
      Size = 0
      RoundByScale = True
    end
    object pFIBDataSetPeditF: TFIBStringField
      FieldName = 'F'
      Size = 200
      EmptyStrToNull = True
    end
    object pFIBDataSetPeditI: TFIBStringField
      FieldName = 'I'
      Size = 100
      EmptyStrToNull = True
    end
    object pFIBDataSetPeditO: TFIBStringField
      FieldName = 'O'
      Size = 100
      EmptyStrToNull = True
    end
    object pFIBDataSetPeditFIO: TFIBStringField
      FieldName = 'FIO'
      Size = 200
      EmptyStrToNull = True
    end
    object pFIBDataSetPeditID_TYPE_PERSONAL: TFIBBCDField
      FieldName = 'ID_TYPE_PERSONAL'
      OnChange = pFIBDataSetPeditID_TYPE_PERSONALChange
      Size = 0
      RoundByScale = True
    end
    object pFIBDataSetPeditDRIVER_LIC: TFIBStringField
      FieldName = 'DRIVER_LIC'
      Size = 50
      EmptyStrToNull = True
    end
    object DRIVER_CAT_A: TFIBSmallIntField
      DefaultExpression = '0'
      FieldName = 'DRIVER_CAT_A'
    end
    object DRIVER_CAT_B: TFIBSmallIntField
      DefaultExpression = '0'
      FieldName = 'DRIVER_CAT_B'
    end
    object DRIVER_CAT_C: TFIBSmallIntField
      DefaultExpression = '0'
      FieldName = 'DRIVER_CAT_C'
    end
    object DRIVER_CAT_D: TFIBSmallIntField
      DefaultExpression = '0'
      FieldName = 'DRIVER_CAT_D'
    end
    object DRIVER_CAT_E: TFIBSmallIntField
      DefaultExpression = '0'
      FieldName = 'DRIVER_CAT_E'
    end
    object DRIVER_CAT_BE: TFIBSmallIntField
      DefaultExpression = '0'
      FieldName = 'DRIVER_CAT_BE'
    end
    object DRIVER_CAT_CE: TFIBSmallIntField
      DefaultExpression = '0'
      FieldName = 'DRIVER_CAT_CE'
    end
    object DRIVER_CAT_DE: TFIBSmallIntField
      DefaultExpression = '0'
      FieldName = 'DRIVER_CAT_DE'
    end
    object cat_a: TBooleanField
      FieldKind = fkCalculated
      FieldName = 'f_cat_a'
      KeyFields = 'DRIVER_CAT_A'
      DisplayValues = 'A'
      Calculated = True
    end
    object cat_b: TBooleanField
      FieldKind = fkCalculated
      FieldName = 'f_cat_b'
      Calculated = True
    end
    object cat_c: TBooleanField
      FieldKind = fkCalculated
      FieldName = 'f_cat_c'
      Calculated = True
    end
    object cat_d: TBooleanField
      FieldKind = fkCalculated
      FieldName = 'f_cat_d'
      Calculated = True
    end
    object cat_e: TBooleanField
      FieldKind = fkCalculated
      FieldName = 'f_cat_e'
      Calculated = True
    end
    object cat_be: TBooleanField
      FieldKind = fkCalculated
      FieldName = 'f_cat_be'
      Calculated = True
    end
    object cat_ce: TBooleanField
      FieldKind = fkCalculated
      FieldName = 'f_cat_ce'
      Calculated = True
    end
    object cat_de: TBooleanField
      FieldKind = fkCalculated
      FieldName = 'f_cat_de'
      Calculated = True
    end
    object pFIBDataSetPeditDRIVER_LIC_DATE: TFIBDateField
      FieldName = 'DRIVER_LIC_DATE'
      DisplayFormat = 'dd.mm.yyyy'
    end
  end
  object DataSource1: TDataSource
    DataSet = pFIBDataSetPedit
    Left = 176
    Top = 8
  end
  object pFIBDataSetLook: TpFIBDataSet
    SelectSQL.Strings = (
      'select * from type_personal')
    Transaction = DataModule_tms.pFIBTransaction_tms
    Database = DataModule_tms.pFIBDatabase_tms
    Left = 288
    Top = 8
  end
  object DSLook: TDataSource
    DataSet = pFIBDataSetLook
    Left = 256
    Top = 8
  end
end
